home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 50 / Digital_Talk_50_2001-08-13_Digital_Talk_de_Side_C.d64 / laeufer 1 .kah (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  51 lines
  1. 1 q=peek(186):poke820,q:qa=peek(821):onqagoto8:rem---laeufer01---
  2. 2 b=53280:print"[147]":pokeb,0:pokeb+1,11:gosub100
  3. 3 poke821,1:load"jogger04*",q,1
  4. 8 poke45,0:poke46,40:clr:goto120:rem sov=$2800
  5. 9 qp=30:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
  6. 11 q$="laeufer":qv$="01":qt$=q$+qv$:qd$="220601":return
  7. 12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
  8. 18 gosub12:print"   g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
  9. 61 cy=int(c/100):cx=c-(cy*100)
  10. 62 poke211,cx:poke214,cy:sys58640:return
  11. 68 lc=int(l/100):ll=l-(lc*100)
  12. 69 forx=lctoll:poke781,x:sys59903:next:return
  13. 100 printtab(15)"[158]laeufer 01"
  14. 102 printtab(10)"[152]nach einer  idee von"
  15. 104 printtab(14)"[155]bruno  jonne"
  16. 106 printtab(12)"[152]programmiert von"
  17. 108 printtab(16)"[153]ka ha te"
  18. 110 fori=0to1000:next
  19. 112 printtab(11)"[152]datei wird geladen"
  20. 114 printtab(14)"[144]bitte warten[155]"
  21. 116 return
  22. 120 l=1224:gosub68:c=2310:gosub61
  23. 122 print"[144]weiter mit  <return>[155]"
  24. 150 r$="":getr$:on-(r$<>chr$(13))goto150
  25. 200 rem ---laeufer-start---
  26. 202 l=724:gosub68
  27. 210 sn=128:sx=0:sr=0
  28. 212 poke53248,sx:poke53264,sr:rem x-position
  29. 214 poke53287,1:rem sprite-farbe
  30. 216 poke53271,0:poke53277,0:rem groesse
  31. 218 poke53249,160:rem y-position
  32. 220 poke2040,sn:rem sprite-datenadresse
  33. 230 poke53269,1:rem sprite0 ein
  34. 250 fori=0to80:next
  35. 252 ifsn>=132thensn=128:goto260
  36. 254 sn=sn+1
  37. 260 ifsx<248then264
  38. 262 sr=1:sx=0:goto270
  39. 264 sx=sx+8
  40. 270 poke2040,sn
  41. 272 poke53264,sr:poke53248,sx
  42. 274 ifsr>0then280
  43. 276 goto250
  44. 280 ifsx<88then250
  45. 282 sr=0:sx=0:poke53269,0
  46. 284 poke53264,sr:poke53248,sx
  47. 300 r$="":getr$:ifr$=chr$(13)then230
  48. 302 ifr$=chr$(95)then999
  49. 304 goto300
  50. 999 poke198,0:poke53269,0:print"[147]":end
  51.